home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 12 / CU Amiga Magazine's Super CD-ROM 12 (1997)(EMAP Images)(GB)[!][issue 1997-07].iso / QuarterBack / Quarterback / Macros / Backup < prev    next >
Text File  |  1993-11-30  |  755b  |  38 lines
  1. /* Backup specified volume (or prompt for volume if none given) */
  2.  
  3. /* This macro will perform a completely automated full backup */
  4.  
  5. Options Results
  6.  
  7. /* Get the volume name */
  8.  
  9. numParams = ARG()
  10. If numParams > 0 Then Do
  11.     volName = ARG(1)
  12. End
  13. Else Do
  14.     RequestText "Please enter the disk or"||"0A"x||"drawer name to backup:"
  15.     If RC ~= 0 Then Exit
  16.     volName = result
  17.     If Length(volName) = 0 Then Exit
  18.     If Index(volName,":") = 0 Then
  19.         volName = volName||":"
  20. End
  21.  
  22. If ~Exists(volName) Then Do
  23.     Request1 "The disk or drawer '"||volName||"'"||"0A"x||"does not exist."
  24.     Exit
  25. End
  26.  
  27. /* Backup the volume */
  28.  
  29. SetBackupOptions Complete DisplayOptionsOff
  30.  
  31. Backup volName
  32. If RC ~= 0 Then Do
  33.     Request1 "An error has occurred"||"0A"x||"during the backup."
  34.     Exit
  35. End
  36.  
  37. Quit
  38.